100 PRINT"[147]***        MOVEABLE DOS WEDGE        ***"
110 PRINT" CHOOSE LOCATION.":PRINT
120 PRINT,"1[146] NORMAL (52224)":PRINT,"2[146] TOP OF BASIC"
130 PRINT,"3[146] OTHER":PRINT
140 POKE198,0:WAIT198,1:GETK$:K=VAL(K$)
150 ONKGOTO200,220,260
160 GOTO140
170 HB=INT(AD/256):LB=AD-256*HB:RETURN
180 PRINT"ILLEGAL ADDRESS":END
190 REM *** NORMAL ***
200 DS=52224:AD=DS:GOSUB170:GOTO300
210 REM *** TOP OF BASIC ***
220 POKE56,PEEK(56)-4:CLR
230 LB=PEEK(55):HB=PEEK(56):DS=LB+256*HB
240 GOTO300
250 REM *** OTHER ***
260 INPUT" WHERE";DS
270 IFDS<1024ORDS>39936ANDDS<49152ORDS>52224THEN180
280 AD=DS:GOSUB170
290 REM *** ALL PURPOSE BLOAD ***
300 F$="DOS 5.1":SA=0
310 PRINT" LOADING "F$
320 SYS57812F$,8,SA
330 POKE780,0:POKE781,LB:POKE782,HB
340 SYS65493:REM CALL KERNAL LOAD
350 REM *** NEW DATA ***
360 FORI=0TO98:READD:POKEDS+123+I,D:NEXT
370 POKEDS+577,39
380 REM *** RELOCATE ***
390 READA1,D1:IFA1=-1THEN430
400 AD=DS+D1:GOSUB170
410 POKEDS+A1,LB:POKEDS+A1+1,HB
420 GOTO390
430 FORI=0TO10:READA2:AD=DS+A2:GOSUB170
440 POKEDS+3+I,HB:POKEDS+14+I,LB:NEXT
450 AD=DS+39:GOSUB170:POKEDS+307,LB:POKEDS+311,HB
460 AD=DS+40:GOSUB170:POKEDS+359,LB:POKEDS+363,HB
470 SYSDS:PRINT" INSTALLED"DS"TO"DS+857:NEW
480 REM *** NEW DATA ***
490 DATA13,13,68,79,83,32,77,65
500 DATA78,65,71,69,82,32,86,53
510 DATA46,49,47,48,55,49,51,56
520 DATA50,32,66,89,32,66,46,32
530 DATA70,65,73,82,66,65,73,82
540 DATA78,13,40,67,41,32,67,79
550 DATA77,77,79,68,79,82,69,13
560 DATA13,0,78,13,13,40,67,41
570 DATA32,49,57,169,13,32,22,231
580 DATA76,144,205,160,255,32,179,238
590 DATA32,179,238,136,208,247,76,121
600 DATA0,0,166,58,232,208,247,76
610 DATA123,227,0
620 REM *** RELOCATE ABSOLUTES ***
630 DATA1,225,228,222,238,119,241,843
640 DATA275,25,299,122,302,675,315,119
650 DATA320,3,324,14,334,25,339,39
660 DATA347,39,354,369,367,319,384,39
670 DATA398,431,423,412,533,457,551,122
680 DATA572,122,593,122,637,190,642,39
690 DATA647,119,653,39,661,119,670,119
700 DATA684,826,759,39,762,121,774,120
710 DATA790,121,808,39,815,120,846,123
720 DATA544,198,618,213,223,243,196,400
730 DATA-1,-1
740 REM *** VECTORS ***
750 DATA545,545,545,545,545,632,327,327
760 DATA327,638,619